gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\orderProcess.asp
<!-- #include file = "include/sysbase.asp" --> <% dim rsObj,strSQL dim nOrderId set rsObj = Server.CreateObject("ADODB.RecordSet") nOrderId = RealString(Request.QueryString("id")) strSQL = "SELECT * FROM OrderList WHERE id = "& nOrderId rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly %> <html> <head> <title>查看订单</title> <meta http-equiv = "Content-Type" content = "text/html; charset = gb2312"> <link rel = "stylesheet" href = "include/main.css" type = "text/css"> <script language = Javascript> <!-- function deleteMe(){ if (confirm("确定删除?无法恢复!") == 1){ window.location = "orderDel.asp?id=<%=RealString(Request.QueryString("id"))%>"; } } function submitMe(){ if (confirm("收到货款,并已发货?") == 1){ form1.submit(); } } //--> </script> </head> <body text = "#000000" leftmargin = "0" topmargin = "6"> <table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center"> <tr> <td colspan = "2" height = "28" bgcolor = "#4296E7"> <div align = "center"><font color = "#FFFFFF">查看订单</font></div> </td> </tr> <tr bgcolor = "#77B3EE"> <td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#FFFFFF">a</font></b></font> <font color = "#660033"> 订单详细资料……</font></td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">订单号</div> </td> <td width = "88%"><%=rsObj("id")%></td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">客户帐号</div> </td> <td width = "88%"><%=rsObj("memberID")%> </td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">收货人姓名</div> </td> <td width = "88%"><%=rsObj("customerName")%> </td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">收货人地址</div> </td> <td width = "88%"><%=rsObj("address")%> </td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">邮政编码</div> </td> <td width = "88%"><%=rsObj("Zipcode")%> </td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">联系电话</div> </td> <td width = "88%"><%=rsObj("phone")%> </td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">电子邮件</div> </td> <td width = "88%"><%=rsObj("email")%> </td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">付款方式</div> </td> <td width = "88%"><%=rsObj("payment")%> </td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">备注</div> </td> <td width = "88%"><%=rsObj("remark")%> </td> </tr> <tr> <td width = "12%" nowrap> <div align = "right">订货日期</div> </td> <td width = "88%"><%=rsObj("createDate")%> </td> </tr> <tr bgcolor = "#77B3EE"> <td colspan = "2" nowrap><font face = "Wingdings 3"><b><font color = "#FFFFFF">a</font></b></font> <font color = "#660033">订货手机明细……</font></td> </tr> </table> <table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center"> <tr> <td width = "8%" nowrap> <div align = "center">手机编号</div> </td> <td width = "49%" nowrap> <div align = "center">手机名称</div> </td> <td width = "14%" nowrap> <div align = "center">手机价格</div> </td> <td width = "13%" nowrap> <div align = "center">手机数量</div> </td> <td width = "16%" nowrap> <div align = "center">金额小计</div> </td> </tr> <% dim nSinglePrice, nOrderPrice, nTotalPrice, nQuantity nSinglePrice = 0 '单件商品的价格 nQuantity = 0 '单件商品的购买数量 nOrderPrice = 0 '购买某件商品的总价格(因为一件商品可能买多件),=单价X购买量 nTotalPrice = 0 '购买所有商品的总价格 '订单明细 strSQL = "SELECT * FROM orderDetail WHERE orderID = " & nOrderID Set rsObj = conn.Execute(strSQL) do while (not rsObj.eof or err) nSinglePrice = rsObj("price") nQuantity = rsObj("Quantity") if nSinglePrice <>"" AND nQuantity <> "" then nOrderPrice = nSinglePrice * nQuantity nTotalPrice = nTotalPrice + nOrderPrice end if %> <tr bgcolor = "#D9EAF9"> <td width = "8%"> <div align = "center"><%=rsObj("productID")%> </div> </td> <td width = "49%"> <div align = "center"><%=rsObj("productName")%> </div> </td> <td width = "14%"> <div align = "center"><%=nSinglePrice%> </div> </td> <td width = "13%"> <div align = "center"><%=nQuantity%> </div> </td> <td width = "16%"> <div align = "center"><%=nOrderPrice%> </div> </td> </tr> <% rsObj.MoveNext loop rsObj.Close() Set rsObj = Nothing CloseConn() %> <tr> <td colspan = "5"> <div align = "right">总计金额:<%=nTotalPrice%>元 </div> </td> </tr> </table> <table width = "98%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "2" align = "center"> <form method = "post" action = "orderProcessSave.asp" name = "form1"> <tr> <td width = "7%" nowrap> <div align = "right">发货备注</div> </td> <td width = "93%"> <textarea name = "treatedRemark" cols = "70" rows = "3">已发货</textarea> <input type = "hidden" name = "id" value = "<%=nOrderId%>"> </td> </tr> <tr> <td height = "28" bgcolor = "#4296E7" colspan = "2"> <div align = "center"> <input type = "button" name = "Submit3" value = "删除该订单" onClick = "deleteMe()"> <input type = "button" name = "Submit" value = " 发 货 " onClick = "submitMe()"> <input type = "button" name = "Submit2" value = " 返 回 " onClick = "window.location = '<%=Session("adminOldUrl")%>'"> </div> </td> </tr> </form> </table> <br> <br> </body> </html>